home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet multimedia / Animacje, filmy i prezentacje / Modelowanie 3D / K-3D 0.6.5.0 / k3d-all-in-one-setup-0.6.5.0.exe / k3d-setup-0.6.5.0.exe / share / lsystem / abop-monopodial-tree2.ls < prev    next >
Encoding:
Text File  |  2005-02-12  |  370 b   |  18 lines
  1. # --- L-System Parser/Mutator --- Lj Lapre ----------------------------------
  2. #
  3. # Elaboration of example d on page 56
  4. # with double the amount of branches
  5. #
  6. 10
  7. 30
  8. 20
  9. #
  10. c(12)FAL
  11. #
  12. A=F[&'(.7)!BL]>(137)[&'(.6)!BL]>(137)'(.9)!(.9)A
  13. B=F[-'(.7)!(.9)$CL]'(.9)!(.9)C
  14. C=F[+'(.7)!(.9)$BL]'(.9)!(.9)B
  15. #
  16. L=~c(8){+(45)f(10)-(45)f(20)-(45)f(10)+(45)|+(45)f(10)-(45)f(20)-(45)f(10)}
  17. @
  18.